home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 1 / Sounds Terrific CD (1994)(Weird Science)(Disc 2 of 2)[!][Amiga-PC].iso / modules / p / phantom3.mod < prev    next >
Text File  |  1994-08-04  |  5KB  |  188 lines
  1. Phantom3.Mod, Auto-Msg Update. Color/80 Col./9 Lines! WORKS!
  2. Phantom Lord #38 @21101 [7Fair Lawn, NJ1]
  3. 7Saturday3, 7December 773, 71991  1<210:12 pm EST1 >
  4. ┌─────────────────────────────────────────────────────────────────────────┐
  5. │ Phantom3.Mod ── 12-07-91 ─── By Phantom Lord ─── WWIV v4.11 v4.12 v4.20 │
  6. │ Description: Working Enhanced AutoMsg │ Experience: Simple Block Read!  │
  7. │ Files Affected: MISCCMD.C             │ Steps: 3                        │
  8. │ ───    GoldSystem Delayed. Still Typing Out. Keep Your Eyes Open    ─── │
  9. └─────────────────────────────────────────────────────────────────────────┘
  10.  Step 1:
  11.  ──────
  12.  Backup Your Source!!!
  13.  ------------------------------------------------------------------------
  14.  Step 2:
  15.  ──────
  16.  Load MISCCMD.C and delete void read_automessage(),
  17.  void write_automessage1() and void write_automessage().
  18.  ------------------------------------------------------------------------
  19.  Step 3:
  20.  ──────
  21.  Block read the following 3 voids where read_automessage(),
  22.  write_automessage1(), and write_automessage were.
  23.  
  24. void read_automessage()
  25. {
  26.   int i,i1,i2,i3,f,len,ptrbeg[10],ptrend[10];
  27.   char s[81],l[10][81],anon,buf[512];
  28.   slrec ss;
  29.  
  30.   sprintf(s,"%sAUTO.MSG",syscfg.gfilesdir);
  31.   f=open(s,O_RDWR | O_BINARY);
  32.   nl();
  33.   anon=status.amsganon;
  34.   if (f<1) {
  35.     pl("No Auto-Post! Write One!");
  36.   } else {
  37.     len=read(f,(void *)buf,512);
  38.     close(f);
  39.     for (i=0; i<10; i++) {
  40.       ptrbeg[i]=0;
  41.       ptrend[i]=0;
  42.     }
  43.     i=0;
  44.     i1=0;
  45.     i2=0;
  46.     for(i=0; i<len; i++) {
  47.       if (i1) {
  48.         if (buf[i]==10) {
  49.           ptrbeg[i2]=i+1;
  50.           i1=0;
  51.     }
  52.       } else {
  53.         if (buf[i]==13) {
  54.           ptrend[i2]=i-1;
  55.       if (i2<9) {
  56.         for (i3=ptrbeg[i2]; i3<=ptrend[i2]; i3++)
  57.           l[i2][i3-ptrbeg[i2]]=buf[i3];
  58.           l[i2][ptrend[i2]-ptrbeg[i2]+1]=0;
  59.       }
  60.       ++i2;
  61.       i1=1;
  62.     }
  63.       }
  64.     }
  65.     ss=syscfg.sl[actsl];
  66.     if (anon)
  67.       if (ss.ability & ability_read_post_anony) {
  68.         sprintf(s,"%s",&(l[0][0]));
  69.       } else
  70.     strcpy(s,"NoBoDy #xxx");
  71.     else
  72.       strcpy(s,&(l[0][0]));
  73.     nl();
  74.     npr("7[3══── 1Auto Post Entered By: 2%s 3──══7]\r\n",s);
  75.     nl();
  76.     i=1;
  77.     while ((ptrend[i]) && (i<9)) {
  78.       pl(&(l[i][0]));
  79.       ++i;
  80.     }
  81.   }
  82.   nl();
  83. }
  84.  
  85. void write_automessage1()
  86. {
  87.   int i,i1,f;
  88.   char s[81],l[10][81];
  89.   slrec ss;
  90.  
  91.   nl();
  92.   pl("3Write Auto-Post1! 29 3Lines1: Ctrl3-1P Colors Work Here3!");
  93.   s[0]=0;
  94.   nl();
  95.   for (i=0; i<9; i++) {
  96.     outchr(i+'1');
  97.     outchr('>');
  98.     inli(&(l[i][0]),s,77,1);
  99.     strcat(&(l[i][0]),"\r\n");
  100.   }
  101.   nl();
  102.   ss=syscfg.sl[actsl];
  103.   if (ss.ability & ability_post_anony) {
  104.     prt(5,"Anonymous!? [Y/N]: ");
  105.     if (yn())
  106.       i1=anony_sender;
  107.     else
  108.       i1=0;
  109.   } else
  110.     i1=0;
  111.   prt(5,"Is This Ok? [Y/N]: ");
  112.   if (yn()) {
  113.     status.amsganon=i1;
  114.     status.amsguser=usernum;
  115.     save_status();
  116.     sprintf(s,"%sAUTO.MSG",syscfg.gfilesdir);
  117.     f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  118.     strcpy(s,nam(&thisuser,usernum));
  119.     strcat(s,"\r\n");
  120.     write(f,(void *)s,strlen(s));
  121.     for (i=0; i<9; i++)
  122.       write(f,(void *)&(l[i][0]),strlen(&(l[i][0])));
  123.     sysoplog("-+*+- Changed Auto-Post!");
  124.     for (i=0; i<9; i++) {
  125.       strcpy(s,"   ");
  126.       l[i][strlen(&(l[i][0]))-2]=0;
  127.       strcat(s,&(l[i][0]));
  128.       sysoplog(s);
  129.     }
  130.     nl();
  131.     pl("Auto-Post Saved!");
  132.     nl();
  133.     close(f);
  134.   }
  135.  
  136. }
  137.  
  138. void write_automessage()
  139. {
  140.   char ch;
  141.   int done,okwrite;
  142.   slrec ss;
  143.  
  144.   ss=syscfg.sl[actsl];
  145.   if (ss.posts)
  146.     okwrite=1;
  147.   else
  148.     okwrite=0;
  149.   if (thisuser.restrict & restrict_automessage)
  150.     okwrite=0;
  151.   done=0;
  152.   do {
  153.     nl();
  154.     if (okwrite) {
  155.       prt(2,"Auto-Post! [Read/Write/Email/Quit]: ");
  156.       ch=onek("QRWE");
  157.     } else {
  158.       prt(2,"Auto-Post! [Read/Email/Quit]: ");
  159.       ch=onek("QRE");
  160.     }
  161.     switch(ch) {
  162.       case 'Q':
  163.         done=1;
  164.         break;
  165.       case 'R':
  166.         read_automessage();
  167.     break;
  168.       case 'W':
  169.         write_automessage1();
  170.         break;
  171.       case 'E':
  172.     if (status.amsguser)
  173.       email(status.amsguser,0,0,status.amsganon);
  174.     break;
  175.     }
  176.   } while ((!done) && (!hangup));
  177.  
  178. }
  179.  
  180.  ------------------------------------------------------------------------
  181.  What'd I Tell Ya... Easy As Hell Aint It? Sorry The GoldSystem Is So
  182.  Late, I'm Still Writing Out The 4 Files For It... I'm Trying To Keep
  183.  These In Chronological Order So That's Why This Is PHANTOM3 Instead
  184.  Of PHANTOM2... If You Need Any Help With This Or Any Other Of My Mods,
  185.  Let Me Know, Net-Mail Me.
  186.                           -Phantom Lord
  187.  ------------------------------------------------------------------------
  188.